АВТОЛИСП -
язык графического программирования в системе AutoCAD

3.1. Функции для работы с числами 1+, 1-, REM, GCD, MIN, MAX

Возможности работы с числами, описанные в п.2.3, дополняются следующими функциями

Эти функции возвращают число, соответственно увеличенное или уменьшенное на еденицу. Аргумент может быть целым или действительным, таков же и результат.

Функция возвращает наибольший общий делитель двух целых чисел.

Функция делит <число1> на <число2> и т.д. и возвращает остаток от деления.

Эти функции возвращают соответственно максимальное и минимальное число из списка чисел: как целых, так и действительных.

3.2. Функции для проверки условий BOUNDP, MINUSP, NUMBERP, NULL, ZEROP, EQUAL

Наряду с функциями для проверки условий, описанными в п.2.4 (типа =, /=, > и т.п.), имеются следующие функции.

Функция возвращает Т, если < атом > имеет какое-либо значение, кроме NIL. Если <атом> равен NIL, то возвращается NIL.

Функция возвращает Т, если < элемент > имеет значение NIL, иначе возвращается NIL. Примеры:

Функция возвращает Т, если < элемент > -число (целое или действительное). Для остальных типов элементов возвращается NIL.

Если аргументом функции является отрицательное число, то возвращается Т, если число неотрицательное, то NIL. Если аргумент не является числом, то функция не определена (интерпретатор Автолиспа выдает сообщение об ошибке).

Если аргумент имеет числовое значение, равное нулю, то возвращается Т, если число не равно нулю, то NIL. Если аргумент не является числом, то функция не определена.

Функция возвращает Т, если оба выражения равны между собой, иначе - NIL. Эту функцию можно применять во всех случаях, где используется функция =, однако возможности EQUAL шире:

аргументами EQUAL могут быть не только атомы, но и более сложные конструкции - списки, например, геометрические точки, заданные списками координат;

аргумент < допуск > позволяет задавать точность сравнения.

Пример:

Функции EQ и ATOM для анализа списков рассмотрены в п.4.4.

3.3. Функции для работы с текстами STRLEN, STRCAT, SUBSTR

В Автолиспе имеются некоторые возможности для работы с текстовыми данными, т.е. с переменными, имеющими значение строк символов. Для этих целей служат следующие функции.

Функция возвращает целое число, равное длине текстовой переменной < строка >, т.е. количеству символов в строке.

Функция возвращает строку, образующуюся в результате "сцепления" строк - аргументов.

Функция возвращает строку текста, являющуюся частью < строки >, заданной в качестве аргумента (выделяет подстроку). Здесь < начало - номер первого символа подстроки, < длина > - количество символов в выделяемой подстроке; если оно не задано, то подстрока продолжается до конца строки.

Примеры:

Сцепление строк в программе удобно использовать для формирования текстовой части чертежей из данных, поступающих из различных источников, например из постоянной и переменной частей.

Выделение подстрок можно использовать для анализа данных, поступающих в программу извне (например, из файла; см.п.3.7), а также данных из текстовой части чертежа.

3.4. Функции для изменения типа данных ANGTOS, ASCII.ATOF, ATOI, CHR, FIX, FLOAT, ITOA, RTOS, TRANS

В Автолиспе имеются довольно богатые возможности для. получения данных одного типа из данных другого типа. Эти возможности обеспечиваются с помощью следующих функций.

Функция преобразует <угол>, выраженный в виде действительного числа в радианах, в форму текстовой строка-Аргумент < представление > указывает, в каком формате должен бь^ть представлен угол:

0 -градусы

1 - грацусы/минуты/секунды

2 - градусы

3 - радианы

4 - топографические единицы ("N", "W",

"S". "О")

Аргумент <точность> - это целое число, задающее число знаков после запятой. Если аргументы не указаны, то используются значения переменных ACAD: AUNITS и AUPREC. Если значение угла отрицательное, то выполняется преобразование в эквивалентный положительный угол в пределах 0...2П.

Таким образом, в текстовой части чертежа может быть записан угол, взятый с чертежа.

Функция преобразует текстовую переменную <текст> следующим образом: выделяет первый символ и возвращает соответствующий ему ASCII-код (т.е. целое число).

Функция может оказаться полезной, если при вводе текста с клавиатуры нажимают на "несимвольные" клавиши, такие, как Enter. Сигналы от таких клавиш могут быть отслежены в программе только по их кодам.

Функция выполняет преобразование, обратное ASCII: преобразует < число в символьный ASCII-код и возвращает соответствующий символ в форме текстовой константы. Число должно быть целым, и его значение должно соответствовать коду какой-либо клавиши.

Функция может быть использована для формирования в программе последовательности символов, эквивалентных последовательности нажатия клавиш, например, последовательности управляющей графическим дисплеем через ANSI-драйвер MS-DOS.

Примеры:

Функции осуществляют преобразование аргумента, имеющего тип строки текста, в соответственно действительное и целое числа. При этом содержание < текста > должно допускать такое преобразование (например, не содержать в своем составе букв, кроме "Е").

С помощью этих функций можно превратить данные, считанные из внешнего файла (а эти данные всегда имеют текстовую форму), в числовые значения параметров, используемых для построения изображения.

Примеры:

Функции осуществляют преобразование из соответственно целого или действительного числа в текст.

Аргумент < режим > может иметь значение от 1 до 5 и задавать форму представления действительного числа в виде:

1-< мантисса > Е < порядок >;

2- < целая часть >.< дробная часть >,

3-5 - см. в "Руководстве по программированию" (Автолисп, версия 10. Autodesk Ltd.,1989).

Аргумент < точность > задает число знаков после запятой. Если режим и точность не указаны, то используются значения системных переменных ACAD: LUNITS и LUPREC.

С помощью этих функций можно использовать числовые значения, формируемые программой, для выдачи на экран сообщений пользователю. Например, в функции ID (см. Приложение) (ITOA i) позволяет включать в строку сообщения переменную i - номер ступени вала.

Эти функции совершают преобразование числового аргумента в соответственно целую и действительную формы. Приведение к целому выполняется путем отбрасывания дробной части (а не округлением).

3.5. Программирование управляющих структур. Функции COND, PROGN, REPEAT

Развитой язык программирования должен обеспечивать реализацию управляющих структур типа "ветвление" и "цикл". Такие структуры реализуются на Автолиспе с помощью функций IF и WHILE (см. п.2.4). Функции, рассмотренные ниже, расширяют возможности программирования управляющих структур.

Функция COND реализует управляющую структуру ВЫБОР из нескольких вариантов действий и позволяет заменить использование многократно вложенных IF.

Здесь < выражение > -любая последовательность функций Автолиспа.

Функция реализуется следующим образом: вычисляется <условие1> и, если оно выполняется, то вычисляется < выражение! >. На этом функция работу заканчивает, возвращая значение последнего выражения. Но если < условие1 > не выполняется, то это выражение вычисляться не будет. Тогда функция COND переходит к проверке следующего <условия2> и тд., т.е. будет выполнено только то выражение, которое следует за первым выполняющимся условием.

Пример:

Если перед выполнением этой функции в переменную А было записано положительное число, то в результате вычисления функции в В будет записан текст "PLUS", функция возвратит "PLUS". Аналогично отработаются случаи, когда окажется, что А=0 и А<0. Если же А вообще не число, то первое выполняющееся условие функция COND найдет в последней строке. При этом никаких действий осуществлено не будет, функция возвратит NIL.

Функция PROGN является вспомогательной для конструирования функции IF. Напомним, что функция IF записывается так:

Часто оказывается необходимым, чтобы при выполнении <условия> вычислялась не одна < функция! >, а последовательность функций. Это и позволяет сделать PROGN.

Функция PROGN объединяет последовательность функций в "макрофункцию". PROGN возвращает значение последней функции в последовательности.

Пример:

Здесь, если А>0, вычисляются В и С (и возвращается значение С), иначе возвращается текст "А< =0". Без функции PROGN такую конструкцию не удалось бы реализовать.

Функция REPEAT позволяет реализовать цикл в некоторых специфических ситуациях более удобно, чем функция WHILE, а именно тогда, когда заранее известно число шагов цикла:

Здесь < число должно иметь целое положительное значение. Выражение вычисляется заданное число раз. Возвращается значение последней выполненной функции.

Пример:

Здесь трижды с клавиатуры вводятся текстовые строки, которые "сцепляются" с начальной строкой "МАТЕРИАЛ".

Циклическая обработка списков может также быть организована с помощью функций FOREACH и MAPCAR (см. п.4.5).

3.6. Функции для работы с файлами OPEN,CLOSE

В Автолиспе имеются возможности для обмена данными между программами через магнитные носители, при этом могут быть использованы данные не только из различных программ на Автолиспе, но и из программ на других языках. Например, расчетная программа на языке ФОРТРАН (Паскаль, С и др.) может записать свои результаты на диск, а программа на Автолиспе прочитает эти данные и использует как параметры для построения чертежа.

Файл с данными можно также использовать для "пакетного ввода" исходных данных в программу, вместо организации ввода в режиме диалога. Это целесообразно, когда при каждом запуске программы вводится большой объем данных, изменяющихся незначительно. Тогда проще отредактировать текстовый файл, чем заново набирать эти данные. Операции ввода-вывода с использованием файлов рассмотрены в п.3.7.

Перед тем как начать работу с файлом, его нужно открыть с помощью функции OPEN:

Здесь < имя файла > - обозначение открываемого файла в среде MS-DOS (имя.расширение). При необходимости указывается префикс.

Значение < режима > может быть символами "г", или "w", или "а", где:

"r" - существующий файл открывается для чтения; если такого файла нет, то функция вернет NIL;

"w" - файл открывается для записи; если файла с таким именем нет, то создается новый файл с указанным именем; если такой файл уже существует, то он заменяется новым файлом с тем же именем;

"а" - файл открывается для добавления; если такого файла нет, то он создается; если файл уже существует, то появляется возможность добавления новых записей "в хвост" уже существующим. (В ряде случаев при добавлении новых записей в файл могут возникнуть затруднения; см. об этом в "Руководстве по программированию".)

Функция OPEN всегда используется в сочетании с функцией SETQ, так как OPEN возвращает условное имя файла, используемое внутри программы, которое будем называть дескриптором файла. (Дескриптор файла и имя файла, известное операционной системе, - это два разных понятия.) Дескриптор файла необходимо записать с помощью SETQ в какую-либо переменную, эту переменную затем придется использовать в операциях ввода-вывода.

Таким образом, строка

означает, что на рабочем диске в подкаталоге К1 ищется файл FILE1 с расширением DAT, этот файл открывается для чтения, значение дескриптора файла присваивается переменной Fl. Обратите внимание на то, что в текстовых константах Автолиспа символ "/" используется там, где по правилам MS-DOS должен стоять символ "\". Это вызвано тем, что символ "\" в Автолиспе используется для ввода управляющих символов.

После того как работа с данным файлом закончена, его следует закрыть с помощью функции CLOSE:

например, файл F1 должен быть закрыт так:

Итак, любой вид работы с файлом должен ткрываться" функцией OPEN и "закрываться" функцией CLOSE. Например, пусть в програм-е предусмотрены сброс промежуточных данных на магнитный диск, а затем использование их данных в следующей части программы. го может быть организовано следующим образом:

В Автолиспе имеется также функция NDFILE для поиска файла по имени: она возвращает полное имя с префиксом каталога:

3.7. Ввод и вывод данных

В ходе работы программы на Автолиспе возможен обмен данными с пользователем и с файлами на магнитном диске, открытыми к моменту начала обмена.

Ввод данных пользователем. Функции типа GET, READ. Функция INITGET. Пользователь может ввести в программу числа, символы и строки символов, в том числе ключевые слова, сигналы с функциональной клавиатуры, геометрические данные. Ввод чисел производится с помощью функций GETINT и GETREAL (см. п.2.3). Для ввода строк символов могут быть использованы функции:

Обе эти функции создают паузу и ждут строку, набранную на клавиатуре. Но GETSTRING обладает более богатыми возможностями:

если флаг пробела отсутствует, то концом строки будет считаться первый пробел (а не только нажатие ENTER); если имеется флаг пробела (любое значение, кроме NIL), то конец строки отслеживается по ENTER;

на экран может выдаваться подсказка.

Функция READ-CHAR работает следующим образом. Если на клавиатуре не был набран никакой текст, то эта функция создает паузу для набора текста, заканчивающегося нажатием ENTER. После этого функция возвращает ASCII-код первой из нажатых клавиш. Каждое последующее обращение к READ-CHAR "сканирует" текст, включая клавишу ENTER (код 10). Например, пусть в программе имеются последовательно пять обращений к READ-CHAR. Тогда возможен следующий обмен данными:

Функцию READ-CHAR можно использовать в тех случаях, когда необходимо проверить код нажатой клавиши, не связанный с каким-либо символом. Например, в функции RZM (см. Приложение) таким образом проверяется, была ли нажата клавиша Enter (как утвердительный ответ на вопрос программы), код этой клавиши 10. Эта проверка осуществляется, как

Геометрические данные вводятся с помощью функций, описанных в п.2.3: GETDIST, GETANGLE, GETPOINT. Первые две возвращают числа, третья - точку в виде списка координат. Помимо них для получения точки можно использовать:

Функция GETCORNER отличается от GETPOINT только тем, что при движении курсора рисуется не "резиновая линия", а прямоугольник от базовой точки.

Функция GETORIENT работает так же, как GETANGLE, если в ходе сеанса работы действует выбор нуля и направления отсчета по умолчанию (рис. 2а). Если же с помощью системных переменных ACAD эти величины изменяются, то значения, возвращаемые GETANGLE и GETORIENT,-He совпадают (см. рис.2 и табл.1).

Как следует из рис.2 и табл.1, GETORIENT воспринимает задание и "нулевой оси", и направления угла, a GETANGLE - только направления. Поэтому GETANGLE можно использовать при повороте вставляемого блока, так как угол, равный 0, всегда будет давать 0. А GETORIENT можно использовать для введения таких углов, как угол базовой линии для команды TEXT.

Имеется возможность модифицировать условия работы функций GET с помощью функции INITGET:

Хотя бы один из аргументов должен присутствовать, иначе в функции INITGET нет смысла.

Рис.2. Иллюстрация различий между функциями GETANGLE и GETORIENT:

а - направления для отсчета углов по умолчанию;

б - направления, заданные с помощью системных переменных;

в - интерпретация углов функцией GETANGLE в условиях рис.26;

г - интерпретация углов функцией GETORIENT в условиях рис.26.

Таблица 1. Значения, возвращаемые функциями, при задании аргументов (в градусах) в условиях рис. 26.

Значение (GETANGLE A) (GETORIENT A)

аргумента А

0 0.0 1.5708

90 4.71239 0.0

180 3.14159 4.71239

-90 1.5708 3.14159

<Управляющий признак> - это целое число, которое может принимать любое из значений, указанных в табл.2, или любую сумму этих значений.

Таблица 2. Управляющий признак INITGET

Признак Интерпретация

1 Запрещен пустой ввод (т.е. <ENTER>)

2 Запрещен ввод нуля

4 Запрещен ввод отрицательных чисел

8 Не контролируются лимиты, даже если LIMCHECK включено

16 Возвращаются трехмерные точки

32 Для "резиновой линии" или рамки применяется пунктир

Условия, заданные функцией INITGET, действуют на ближайшую функцию типа GET. "Запрет" функции INITGET действует так, что при его нарушении пользователем функция GET срабатывает повторно до тех пор, пока не будут введены приемлемые данные. С такой целью функция INITGET используется в функции C:VAL (см. Приложение), что гарантирует правильный ввод числа ступеней вала.

Значение признака, задаваемого функцией INITGET, должно соответствовать назначению последующей функции GET (табл.3).

Таблица 3. Функции GET, для которых имеют смысл управляющие признаки

Признаки

Функции

1 2 4 8 16 32

GETINT + + +

GETREAL + + +

GETDIST + + + + +

GETANGLE и

GETORIENT + + +

GETPOINT и

GETCORNER + + + +

GETSTRING

GETKWORD +

Аргумент < текст > в функции INITGET имеет форму текстовой константы. А по содержанию - это список ключевых слов, которые может ввести пользователь в ответ на функцию GET. Список ключевых слов строится по следующим правилам:

ключевые слова в списке разделяются пробелами;

допускается задавать не только полные слова, но и их сокращенные варианты по началу слова, тогда начало выделяется заглавными буквами;

тот же результат может быть достигнут иначе: за полным вариантом слова через запятую записывается сокращенный вариант.

Ключевые слова, разрешенные функцией INITGET, могут вводиться пользователем с клавиатуры в ответ на функцию GET. Такое слово будет возвращено функцией GET в виде строки текста (вне зависимости от назначения функции, т.е. от того, какие данные она формирует обычно). Это позволяет пользователю управлять работой программы (ввести "команду") в любой точке, где ему предлагается ввести данные с помощью GET-функции.

Пример:

Пусть первая встретившаяся после INITGET функция типа GET имеет вид:

Тогда пользователь может ввести следующие данные с клавиатуры: положительное целое число (так как в INITGET записано 7=1+2+4); строки REZBA, REZ, FASKA1, FAS1, FASKA2, FAS2. Любой другой ввод будетвосприниматься как неправильный, и GETINT будет снова запрашивать данные. Отметим, что работа организуется именно функцией INITGET, a текст в функции GETINT служит только подсказкой пользователю.

Знакомство с INITGET позволяет понять ункцию GETKWORD:

Функция запрашивает ключевое слово у пользователя и возвращает введенное ключевое в виде строки текста. Применение GETKWORD имеет смысл, если перед этим (ючевые слова были определены функцией INITGET.

С помощью сочетания функций INITGET, GETKWORD и COND удобно организовывать ветвления в программе, управляемые пользователем.

Вывод данных на экран. Функции типа HNT и WRITE, функция PROMT. Управление выводом . Программа в процессе работы может выдавать на экран символы, строки текста, а также значения любых выражений Автолиспа том числе числа и списки). Во многих случаях один и тот же результат может быть получен различными функциями.

Функции различаются оформлением результата и возвращаемым в программу значением. Рассмотрим эти функции.

Печатает символ, ASCII-код которого задан иым числом, и возвращает этот код.

Печатает текст (без кавычек) и возвращает текст в форме текстовой константы (в качках).

Печатает и возвращает значение выражения (если < выражение > - текст, то он выдается в кавычках).

Функция PRIN1 (так же как PRINC и PRINT) без аргументов может быть использована для "тихого завершения" программы, так как эти функции в отсутствие аргумента ничего не возвращают. Такой прием использован в Программе 13 (см. последнюю строку программы в Приложении). Без этой строки программа выдала бы в строку подсказки значение, возвращенное функцией COMMAND, т.е. NIL.

Печатает и возвращает значение выражения (текст печатается без кавычек).

Печатает и возвращает значение выражения, при этом печать производится с новой строки с последующим пробелом (текст - в кавычках).

Печатает текст и возвращает NIL.

Примеры:

Возможности управления выводом обеспечиваются тем, что в выводимой на экран строке текста используются управляющие символы:

\n - перевод строки;

\г - возврат к началу строки;

\t - табуляция.

Печать с новой строки обеспечивается также функцией PRINT. Для перевода строки служит и функция TERPRI, которая возвращает NIL.

Ввод и вывод через файлы. Вывод на печать. Как указывалось в п.3.6., программа может работать с файлами на магнитном диске, для этого служат уже известные нам функции, меющие в этом случае следующий формат.

Здесь буквой "Ф" для краткости обозначен дескриптор файла, заданный в SETQ с помощью функции OPEN для данного файла.

Каждая функция WRITE и PRINT формирует очередную запись файла последовательного доступа. Таким образом, в запись файла можно занести данные любого типа. При записи происходит преобразование данных в форму строки текста.

Функция READ-LINE считывает очередную запись и воспринимает ее как строку текста (возвращая эту строку). Функция READ-CHAR воспринимает очередной символ из считанной записи, а если такого символа нет, то считывает новую запись и воспринимает первый символ (возвращая ASCII-код, т.е. число).

Таким образом, читать из файла можно только текст.

С помощью функций типа WRITE и PRINT можно выдавать данные на устройство печати. Для этого в функции OPEN в качестве имени файла необходимо указать логическое имя устройства печати.

4.1. Списки и их применение. Точечные пары

Любой, кто знаком с языками программирования, такими, как Бэйсик, Паскаль, С, Фортран, заметит в Автолиспе ряд отличий от этих зыков, в частности, отсутствие такого важного способа организации данных, как массивы (переменные с индексами), обеспечивающего компактную запись повторяющихся действий с помощью циклов. Подобные задачи решаются в Автолиспе с помощью списков.

Как уже известно (п.2.4), геометрические точки представляются в Автолиспе в форме тисков из двух или трех координат. В дальнейшем (см. гл.5) будет показано, что примитивы CAD также представляются в виде сложных тисковых структур. Таким образом, для понимания специфики Автолиспа и его возможностей по обработке геометрических и графических данных ACAD, необходимо изучить функции работы со списками.

Как указывалось в п.2.2, список - это объект формы:

где < элемент > - это список или атом.

Особым случаем списка является точечная паpa:

При хранении точечных пар требуется меньше места в памяти, чем при хранении обычных списков. Точечная пара может быть сформирована функцией CONS (см. ниже). Некоторые функции обработки списков не могут работать с точечными парами. Если точечная пара выдается на экран, то между атомами Автолисп печатает точку. Об использовании точечных пар будет сказано в п. 5.7.

4.2. Создание списков. Функции LIST, CONS, APPEND, REVERSE

Можно сформировать список (из двух или трех элементов) и записать его в качестве значения переменной путем ввода точки с помощью GETPOINT.

Список можно сформировать и путем указания примитива на экране, "развернуть" его функцией ENTGET (см. гл.5). Кроме того, имеются функции, позволяющие конструировать списки из данных, определенных ранее в программе.

Функция LIST формирует список из любого числа элементов (атомов или списков) и возвращает список.

Функция CONS добавляет < элемент > (атом или список) в качестве первого элемента к уже существующему списку и возвращает обновленный список.

Таким образом, если функция LIST формирует новый список, то CONS - расширяет существующий. Однако, возможно использование CONS и в следующей форме:

В этом случае создается точечная пара.

Функция APPEND соединяет несколько списков в один общий список. Отличие APPEND от LIST поясняется примерами, приведенными ниже.

(REVERSE <список>)

Функция REVERSE возвращает список с элементами, расставленными в обратном порядке.

Примеры:

(SETQ A '(1.0 2.0))

(SETQ В '(С D Е))

(SETQ F (LIST А В)) создает в F список ((1.0 2.0)(С D Е))

(SETQ G (LIST 'X В)) создает в G список Х (С D Е))

(SETQ G (CONS 'X В)) создает (X С D E)

(SETQ G (CONS '(X) В)) создает ((X) С D Е)

(SETQ G (CONS 34)) создает точечную пару (3.4)

(SETQ H (APPEND А В)) создает (1.0 2.0 С D Е),

т.е. происходит слияние списков в отличие от функции LIST, формирующей "список списков".

(SETQ H (APPEND '(X) В)) создает (X С D Е) - в отличие от функции CONS с такими же аргументами

(SETQ H (APPEND 'X В)) - ошибка, аргументы должны быть списками

(SETQ В (REVERSE В)) создает в В (Е D С).

4.3. Выделение элементов списков. Функции типа CAR и CDR. Функции LAST, MEMBER, NTH, ASSOC

Любая структура данных имеет смысл тогда, когда возможен доступ к отдельным элементам этой структуры. При работе со списками необходимо выделять элементы и другие части списков. Например, если необходимо изменить координату Х точки, заданной как (LIST X У), то элемент Х предварительно следует извлечь из списка:

Функция возвращает первый элемент списка. Если список пуст, то возвращается NIL.

Функция возвращает новый список, отличающийся отсутствием первого элемента (обрезает список спереди). Если список пуст, возвращается NIL. Если < список > представлен как точечная пара, то CDR возвращает второй элемент как атом, а не как список.

В Автолиспе определены функции, обеспечивающие последовательное выполнение CAR и (или) -CDR вплоть до четырех уровней вложенности: CAAR, CADR, CDDR, CADAR и т.д.

Пусть

Тогда

(CAAR X) возвращает А как (CAR (CAR X))

(CDAR X) возвращает (В) как (CDR (CAR X))

(CADAR X) возвращает В как (CAR (CDR (CAR X))) и т.п.

Функции типа CAR и CDR часто используются для выделения координат точек (CAR -для X, CADR - для У, CADDR - для Z).

Функция возвращает последний элемент < списка >, который может быть атомом либо списком.

Функция просматривает < список > и ищет в нем заданный < элемент >. Если < элемент > найден, то возвращается список от < элемента > до конца исходного < списка >. Иначе возвращается NIL.

Функция возвращает элемент < списка >, имеющий заданный < номер >. < Номер > должен иметь целое неотрицательное значение. Примем во внимание, что первый элемент списка имеет номер 0. Если < номер > превышает число элементов в < списке > -1, то возвращается NIL.

Примеры:

Функция ASSOC обеспечивает "ассоциативный поиск" в структурированном списке, т.е. в списке, элементы которого являются списками, эти списки построены по схеме:

Поиск проводится по совпадению < элемента >, заданного в функции ASSOC, с < ключевым элементом > в списке - элементе < списка >, заданного в ASSOC. Если поиск удался, то возвращается найденный список, иначе - NIL. Таким образом осуществляется поиск данных по ключу в сложной структуре данных.

Пусть

(SETQ DETAL '((КОД 123456) (КОДМ 001234) (М 1.45)))

Тогда

(ASSOC 'КОДМ DETAL) возвращает (КОДМ 001234)

(Теперь с помощью функции CADR можно "отрезать" ключевой элемент КОДМ и выделить значение 001234.)

Функция SUBST дополняет функцию ASSOC, позволяя заменять элементы в списке.

Производится просмотр списка, и каждый найденный < старый элемент > заменяется на < новый элемент >. Возвращается обновленный список.

4.4. Анализ списков. Функции LISTP, ATOM, EQ

Имеются функции проверки условий, связанные с анализом списков.

Функция возвращает Т, если < элемент > является списком, иначе - NIL.

Функция, обратная к LISTP, т.е. возвращает Т, если < элемент > является атомом.

Функция проверяет идентичность двух выражений, которые, как правило, являются списками. Списки считаются идентичными, если они связаны друг с другом через SETQ. Если два списка идентичны (EQ), то они всегда равны (EQUAL). Если же два списка равны, то они необязательно идентичны.

Пример:

4.5. Работа со списками. Функции APPLY, FOREACH, MAPCAR

Как отмечалось в п.4.1, имеются возможности компактной записи некоторых действий с помощью списков. Для этого можно использовать функции APPLY, FOREACH, MAPCAR.

Таким образом выполняется какая-либо функция Автолиспа, имя которой указано и которая может иметь несколько аргументов. Эти аргументы задаются < списком >. Например,

Функция организует циклическое выполнение < выражений >. Предполагается, что в этих выражениях присутствует < переменная >. Функция работает так: присваивает < переменной > значение первого элемента < списка >, подставляет это значение в < выражения > и выполняет их. То же самое делается для каждого последующего элемента <списка>.

Пример:

эквивалентно последовательности

MAPCAR также организует цикл. В нем выполняется функция, имя которой указано, имеющая N аргументов, т.е. столько, сколько перечислено < списков >. Во всех < списках > при этом должно быть одинаковое число элементов. Таким образом, цикл будет иметь столько шагов, сколько элементов в любом < списке >. Возвращается список значений функции, полученных для каждого номера элементов < списков >.

Пример:

Формируется S в виде списка (11 22 33), каждый элемент которого есть результат применения функции "+" к паре аргументов, взятых из двух списков.

4.6. Примеры

Из рассмотренных в данной главе функций работы со списками при программировании геометрических построений на Автолиспе, наверное, чаще всего используются функции LIST (для получения геометрической точки из отдельных координат), а также CAR и CADR (для выделения координат точки). Такое использование иллюстрируется следующей простой функцией:

Другие функции работы со списками находят применение в первую очередь при анализе элементов чертежа, которые в его базе данных представляются в виде списков. Вопросы работы с элементами чертежа рассмотрены в гл.5, поэтому пример, приведенный ниже, имеет не практический, а иллюстративный характер.

Программа 9 составлена в предположении, что есть некоторый список, являющийся схемой описания какого-либо объекта, т.е. перечнем ключевых слов. Например, описание сотрудников может представлять следующая схема:

Программа 9 содержит две функции. Функция "Синтез" позволяет построить на основе схемы описание конкретного объекта, также имеющее форму списка. Каждый элемент этого списка является списком вида:

Например, описание объекта может выглядеть так:

Функция "Анализ" позволяет найти любой элемент описания объекта по ключевому слову и при необходимости изменить значение этого элемента.

Алгоритм, реализуемый Программой 9:

Возможности работы со списками проиллюстрированы в Программе 13 (см. Приложение). Без использования списка в этой программе невозможно было бы проставить размеры длин ступеней вала, так как местоположение первой размерной линии может быть выбрано только тогда, когда все ступени вала построены (точнее, все диаметры ступеней введены). В связи с этим при построении ступеней требуется запоминать точки для последующего построения размеров. Это можно сделать только с помощью списка.

Рассмотрим, как используются функции работы со списками в Программе 13.

При построении первой ступени формируется список sp, состоящий из одного элемента -списка точек р2 и рЗ:

При построении каждой следующей ступени в этот список добавляется новая пара точек:

Обратим внимание на то, что новая пара добавляется в начало списка, т.е. порядок следования пар точек в списке обратен порядку построения ступеней вала.

Для построения диаметров организуется цикл с помощью функции FOREACH:

т.е. на каждом шаге цикла выбирается очередной элемент списка sp и записывается в рр.

Верхняя и нижняя точки для простановки размера выделяются из рр следующим образом:

(Отметим, что диаметры будут проставляться, начиная с последней ступени, т.е. в том порядке, в котором организован список sp.)

Чтобы проставить размеры длин, необходимо сначала проставить один горизонтальный размер с опорой на базовую точку, а затем последовательно проставлять остальные размеры от базы. Для этого:

После этого организуется цикл по простановке размеров с помощью FOREACH аналогично тому, как это было сделано при простановке диаметров. Однако теперь уже размеры будут проставляться в том же порядке, в каком изображался вал, т.е. слева-направо.

На примере Программы 13 можно также видеть, как функции LIST, CAR и CADR используются для внутрипрограммного построения точек. Например,

определяет точку p3, координата Х которой смещена на десять единиц влево по отношению к точке р1. Аналогичный результат был бы получен с помощью (POLAR pi PI 10).

5.1. Специфика языка Автолисп как части системы AutoCAD

Помимо возможностей Автолиспа, свойственных и другим языкам программирования, а также возможностей по обработке списков, двойственных версиям языка Лисп, в Автолиспе имеются и специфические возможности, связанные с тем, что программа на Автолиспе работает в среде, созданной системой AutoCAD. Эта среда характеризуется:

определенными параметрами (системными переменными AutoCAD);

определенной организацией экрана (графического или текстового);

наличием изображения (чертежа), построенного на графическом экране и состоящего из примитивов и блоков;

определенной организацией данных об изображении в памяти ЭВМ - наличием графической базы данных чертежа, в которой содержатся описания примитивов и блоков, значения системных переменных, таблицы слоев, типов линий и т.д.

Программа на Автолиспе может воспринимать особенности этой среды и оказывать влияние на нее.

5.2. Объектная привязка с помощью функции OSNAP

Помимо описанных ранее способов задания точки в программе имеется возможность задания точки путем объектной привязки, т.е. так же, как это делается в графическом диалоге с помощью команды OSNAP:

Предполагается, что на чертеже имеется объект, проходящий через заданную < точку >.

Аргумент < режим > - это строка текста, характеризующая режим привязки точно так же, как для команды OSNAP. Например:

"CEN" - центр окружности или дуги;

"BND" - конечная точка отрезка, дуги;

"INS" - базовая точка блока и др.

Если точка, соответствующая заданному режиму, не найдена, то возвращается NIL.

5.3. Воздействие на экран. Функции GRAPHSCR, TEXTSCR, GRCLEAR, REDRAW, MENUCMD

В ходе выполнения программа может влиять на состояние экрана.

С помощью этих функций можно переключать экран с текстового на графический и обратно.

Переключение экрана в текстовый режим может оказаться целесообразным, если программа выводит последовательность строк текста с помощью функций типа PRINT.

Функция очищает поле чертежа графического экрана.

Функция позволяет восстановить картину, стертую с помощью GCLEAR. Кроме того, EDRAW может применяться для перерисовывания текущего экрана и выполнять ту же роль, что и команда графического редактора REDRAW.

Эта функция позволяет переключаться среди подстраниц в меню ACAD, т.е., например, вводить на экран тот раздел меню, который в данный момент необходим пользоватею. Это дает возможность упростить диалог пользователя при комбинированной работе с программой и графическим редактором.

Аргумент < текст > имеет следующий вид:

Для экранного меню <тип меню> - S (другиe типы см. в "Руководстве пользователя"(АВТОКАД, версия 10. Autodesk Ltd., 1989)).

Таким образом (MENUCMD "S = S3 ") будет лзывать на экран раздел меню S3. Применение этой функции предполагает знание структуры файла меню, который используется в процессе работы данной программы (например, стандартного файла меню ACAD.MNU).

Все перечисленные здесь функции возвращают NIL.

5.4. Работа с системными переменными и символьными таблицами. Функции GETVAR и SETVAR

Тем, кто полностью освоил графический редактор ACAD, известно, что при вызове ACAD устанавливаются по умолчанию значения множества системных переменных, влияющих на режим работы с редактором. В ходе графического диалога эти значения можно переустанавливать командой SETVAR. Полный список системных переменных, их типов и значений приведен в "Руководстве пользователя".

С помощью этой функции значение системной переменной может быть считано в программу. < Имя переменной > должно указываться как строка текста.

С помощью этой функции значение системной переменной может быть переустановлено. Возвращается устанавливаемое значение.

Следует иметь в виду, что некоторые системные переменные определены только для гения (см. "Руководство пользователя"). Такие переменные нельзя переустановить. Примеры:

(SETQ A (GETVAR "ANOBASE"))

возвращается и записывается в А действительное число, определяющее направление угла 0 в этом чертеже.

(SETVAR "CMDECHO" 0)

задается значение 0 для переменной CMDECHO, что приведет к исчезновению "эха" выполняемых команд.

Режим, заданный в последнем примере, удобен на практике, в особенности тогда, когда программа интенсивно выдает пользователю полезные сообщения, между которыми эхо команд будет восприниматься как "шум". В любом случае отключение эха ускоряет выполнение программы.

В ходе работы с редактором ACAD создаются также символьные таблицы LNTYPE, LAYER другие, определяющие типы линий, слои, ви-ы, блоки, гарнитуры шрифтов. Данные из этих таблиц могут быть прочитаны с помощью функций TBLNEXT,TBLSEARCH, описанных в "Руководстве по программированию".

5.5. Формирование и анализ наборов примитивов. Функции типа SS

Программы на Автолиспе могут работать с бъектами специальных типов - графическими бъектами. К таким объектам относятся:

примитивы ACAD, имеющиеся на экране в процессе работы программы;

совокупности таких примитивов, называемые в Автолиспе наборами.

Графические объекты могут быть "введены в программу", т.е. возможно именование этих объектов с помощью имен переменных, так же как именование чисел, строк текстов, точек. После этого можно оперировать с этими объектами, обращаясь к ним по именам. В том числе можно анализировать и изменять характеристики этих объектов, что приводит к изменению изображения на экране.

Для лучшего представления о том, как происходит работа с примитивами и наборами, полезно понять следующее. При выделении каким-либо способом примитива или набора из базы данных Автолисп формирует внутрипрограммное имя этого объекта (примитива или набора). На самом деле - это не имя, а ссылка на объект, но для программиста это не имеет значения. Программист поступает следующим образом: он записывает это "имя" в какую-либо переменную с помощью SETQ. Затем эта переменная может быть использована для любого указания на объект. Например, она может быть подставлена в качестве аргумента в команду, требующую указания примитива или группы примитивов. Далее такая технология будет проиллюстрирована на примере.

Основное средство определения наборов примитивов - функция SSGET.

Функция возвращает определение (внутрипрограммное имя) выбранного примитива или отбора (совокупности примитивов), которое может быть "записано" в неременную Автолиспа (с помощью SETQ);

Если аргумент < режим > отсутствует, то создается набор, выбранный средствами графического редактора (указание на объекты, захват в рамку и т.п.). При этом программа выдает такой же запрос на указание способа выбора объетов, а затем запросы на выбор, как и при работе с графическим редактором.

Возможны следующие значения режима:

"Р", в русском варианте "Т" - выбирается текущий набор;

"L", русское "П" - выбирается последний сформированный на чертеже примитив;

"W", русское "Р" < точка1 > <точка2> - выбираются примитивы, попавшие в рамку с углами в < точке1 > и <точке2>;

"С", русское "С" <точка1> <точка2> - выбираются примитивы, пересекаемые рамкой. Кроме этих возможны еще две конструкции:

Здесь выбираются примитивы, проходящие через < точку >.

Здесь < фильтр > - список, элементами которого являются одна или несколько точечных пар. Каждая точечная пара строится по следующей форме:

(< код >.< значение >) Здесь <код> - одно из принятых в Автолиспе чисел, показывающих, по какому признаку выбираются примитивы, например;

0 - примитивы одного типа;

2 - примитивы, входящие в один блок (INSERT) ;

6 - по типу линии;

7 - по гарнитуре шрифта;

8 - по имени слоя;

62 - по цвету и др.

< значение > - значение признака.

Например,

вернет набор, включающий все примитивы, находящиеся на слое, именованном как "SLI";

вернет набор, состоящий из всех линий красного цвета (1 - номер красного цвета).

Выполнение последовательности функций

(SETQ sdel (SSGET "X" '((6 . "CENTER"))))

(COMMAND "ERASE" sdel)

приведет к стиранию всех примитивов, изображенных осевыми линиями.

Следующие функции позволяют анализировать набор, получаемый с помощью SSGET

Функция SSLENGTH возвращает целую величину, представляющую число примитивов в наборе. Таким образом, программа может "узнать", сколько объектов было выделено пользователем. По известному числу примитивов можно организовать цикл по обработке последовательно каждого примитива.

Здесь и далее < набор > - это имя переменной набора, т.е. переменной, определенной ранее следующим образом:

Функция SSNAME возвращает внутрипрог-раммное имя примитива из < набора >, идущего под соответствующим номером.

Здесь < номер > - целая величина. Первый по порядку примитив имеет номер 0. Если < номер > меньше 0 или больше максимального номера примитива в наборе, то возвращается NIL. Таким образом, конструкция вида

позволяет выделить примитив из < набора >, записав его имя в < переменную >.

Функция SSMEMB проверяет, входит ли < примитив > в < набор >. Если да, то возвращается имя примитива, если нет, - то NIL.

Здесь и далее < примитив > - имя переменной, значение которой записано с помощью SETQ, например, путем применения функции SSNAME.

Следующие функции позволяют изменять состав набора:

Функция SSADD без аргументов создает новый пустой набор. SSADD с аргументом < примитив > создает новый набор, содержащий только указанный примитив. Если указаны оба аргумента, то функция добавляет указанный примитив в набор. Если этот примитив в наборе уже имеется, то ничего не изменится. Функция возвращает имя набора. Например,

Эта конструкция формирует новый набор, состоящий из одного примитива. Предполагается, что pi - переменная, в которую ранее было записано имя примитива. Имя созданного набора записывается в переменную S, которую теперь можно использовать для указания на набор.

Функция удаляет < примитив > из < набора >, если он там присутствовал, иначе - ничего не меняется. Возвращается имя набора.

Пример работы с набором:

5.6. Работа с примитивами. Функции ENTNEXT, ENTLAST, ENTSEL, ENTDEL. Операция REDRAW над примитивом

Примитивы в ACAD могут быть простыми (линия, окружность, строки текста,...) или составными (полилинии, вставки блоков). Составные примитивы делятся на субпримитивы.

Например, для полилинии субпримитивами являются вершины, для вставки блоков - атрибуты. С помощью функций типа SS, рассмотренных в п.5.5, могут быть получены либо наборы примитивов, либо примитивы (простые или составные), но не субпримитивы. Функции, рассматриваемые в данном параграфе, позволяют работать с примитивами и субпримитивами.

Функция возвращает внутрипрограммное имя примитива или субпримитива:

если < примитив > не указан, то возвращается первый из примитивов чертежа (неудаленных);

если указан простой примитив, то ENTNEXT возвращает примитив, следующий за указанным;

если указан составной примитив; то ENTNEXT возвращает первый субпримитив указанного примитива;

если указан субпримитив, то ENTNEXT возвращает субпримитив, принадлежащий тому же примитиву, что и указанный, и следующий за указанным;

если запрашиваемый объект отсутствует, то возвращается NIL.

Функция возвращает внутрипрограммное имя последнего примитива на чертеже (неудаленного). Субпримитив с помощью ENLAST не выделяется.

Эта функция создает паузу и может вывести текст < подсказки >. Пользователь в ответ должен указать примитив на экране.

Функция возвращает результат в виде списка из двух элементов:

первый элемент - внутрипрограммное имя примитива;

второй элемент - точка, в которой было проведено указание, эта точка возвращается в виде списка координат.

Возвращаемый результат может быть "записан в переменную" с помощью SETQ. Эта переменная впоследствии может быть задана в ответ на любую команду ACAD (в функции COMMAND), требующую выбрать объект и учитывающую точку указания. Кроме того, результат, записанный в данную переменную, может быть "разложен .на составные части": (CAR < переменная >) возвращает имя примитива, (CADR < переменная >) вернет точку указания.

С помощью этой функции примитив может быть удален из чертежа. Субпримитивы таким способом не удаляются.

Пока не кончился сеанс работы с данным чертежом, удаленный примитив может быть восстановлен с помощью той же функции (ENTDEL < примитив >)

Функция возобновляет изображение примитива после очистки экрана функцией GRCLEAR. Таким образом, рассмотренная в п.5.3 функция REDRAW может также управлять изображением примитива:

Действие REDRAW зависит от значения аргумента < режим >: 1 - примитив перерисовывается; 2 - примитив стирается; 3 - примитив подсвечивается; 4 - подсветка примитива отменяется.

5.7. Работа с данными примитивов и модификация примитивов. Функции ENTGET, ENTMOD, ENTUPD

Каждый примитив с точки зрения системы AutoCAD представляет собой достаточно сложную совокупность данных. Представление об этих данных дают правила расположения данных в DXF-файле, который является текстовым описанием чертежа (см. "Руководство пользователя").

Программа на Автолиспе может сформировать сложный список, в котором будут содержаться все данные о примитиве. После этого средствами обработки списков можно выделять, анализировать и модифицировать отдельные лепные. За модификацией данных примитива может следовать отображение модифицированного примитива на чертеже.

Таким образом, программа на Автолиспе может анализировать и видоизменять чертеж, построенный, например, в режиме диалога с редактором ACAD.

Функция формирует и возвращает список, содержащий данные о примитиве.

Структура списка напоминает перечень данных о примитиве в DXF-файле и зависит от типа примитива и от того, насколько характеристики примитива соответствуют умолчанию.

Правила построения списка:

каждый элемент списка является списком (будем называть его субсписком);

большинство субсписков имеют вид точечных пар (кроме субсписков, описывающих точки);

первый элемент каждого субсписка - это код данных, второй элемент (и последующие) - значение (значения), соответствующие коду;

первый субсписок имеет вид (-1 . имя-примитива);

второй: (0. тип-примитива);

третий: (8. имя-слоя);

далее следуют некоторые атрибуты примитива в том случае, если их значения отличаются от значений по умолчанию, набор этих атрибутов зависит от версии ACAD, примером может служить (62. код-цвета);

далее следуют характеристики примитива, состав которых зависит от типа примитива.

Пример списка, возвращаемого функцией ENTGET для окружности, находящейся на слое "О", синего цвета (номер цвета - 5) с центром в точке (2 2 0) и с радиусом 1.5, изображенной пунктирной линией ("DASHED"):

((-1. <внутрипрограммное-имя-примитива>)

(0 . "CIRCLE")

(8. "0")

(6 . "DASHED")

(62.5)

(10 2.0 2.0 0.0) (40. 1.5)

)

С помощью этой функции можно изменить изображение примитива на экране. Предполагается, что до обращения к ENTMOD происходила модификация данных в списке, полученном с помощью ENTGET.

Пример:

После выполнения последней функции на экране вместо примитива PR, ранее выбранного пользователем, появится "обновленный" примитив, отличающийся какими-либо характеристиками. Для программы это по-прежнему будет примитив PR, и с ним можно продолжать работу.

На применение ENTMODE накладываются некоторые ограничения:

не может быть изменен тип примитива;

такие атрибуты как Тип линии (и некоторые другие), могут принимать только те значения, которые к данному моменту определены в сеансе работы с ACAD;

однако слой может быть задан и новый, отсутствовавший к данному моменту.

Функция ENTMODE может выполняться над примитивом или субпримитивом. Если ENTMODE выполняется над субпримитивом, то видимого изменения на экране не происходит. 122

С помощью этой функции можно изменить изображение примитива после того, как изменены субприпримитивы этого примитива с помощью ENTMODE.

Однократное изменение сложного примитива происходит гораздо быстрее, чем его многократная перерисовка после изменения каждого субпримитива.

5.8. Примеры

Приведенные ниже примеры демонстрируют различные применения функций для работы с примитивами и наборами. Каждая из этих программ - не только иллюстрация, но и практически полезная функция, которая может пригодиться конструктору, работающему с редактором AC AD. Эти программы иллюстрируют возможности расширения системы AutoCAD с помощью Автолиспа.

В этой книге описаны основные функции языка Автолисп для AutoCAD версии 10. Знания этих функций достаточно для решения большинства практических задач: построения чертежей типовых деталей и узлов, расчетно-графических задач, работы с файлами, анализа и преобразования изображений, расширения системы команд графического редактора ACAD. Некоторые функции (около 20) остались за рамками описания, в том числе функции, связанные с распределением оперативной памяти, отладкой программ и др.

Все возможности языка Автолисп сохранились в последней версии системы AutoCAD (версия 11, русскоязычная, поставляется с конца 1991 г). Помимо этого, в версии 11 имеется возможность графического программирования с использованием языка С. Для выполнения программ, написанных на языке С, необходим интерпретатор Автолиспа.

Наряду с интерпретатором, разработан компилятор Автолиспа (поставляется отдельно от системы AutoCAD). Программа на Автолиспе, отлаженная в режиме интерпретации, может быть откомпилирована. Полученный в результате загрузочный модуль будет выполняться значительно быстрее и требовать меньше памяти.

Наряду с программированием на Автолиспе существует и другой способ получения модели семейства чертежей, отличающихся значениями размеров, - метод параметризации. Этот метод реализован в таких системах, как PARACAD, SYNTHESIS, CUSP, p-Design, и других, работающих совместно с системой AutoCAD. Модель формируется с помощью системы параметризации в режиме графического редактирования, т.е. значительно удобнее и быстрее, чем программирование. Однако круг задач, решаемых с помощью системы параметризации, значительно уже, чем круг задач, для решения которых используется Автолисп, и ограничен получением чертежей, различающихся только размерами. Например, чертеж вала с произвольным количеством ступеней, приведенный в Приложении, нельзя получить методом параметризации.

Пример программы на языке Автолисп для получения семейства чертежей

Представленная программа позволяет получить чертеж вала с произвольным числом ступеней. Пользователь задает начальную точку, число ступеней и для каждой ступени – длину и диаметр. Программа рисует контур детали и проставляет длины ступеней от единой базы. Программа спрашивает о необходимости простановки диаметров и при утвердительном ответе пользователя проставляет их так, как показано на рисунке 3, где приведен результат выполнения программы 13 с конкретным набором значений параметров.

При составлении программы принимались следующие решения:

масштаб изображения 1:1;

базовая точка располагается в центре левого торца первой ступени вала так, что каждая следующая ступень рисуется справа от предыдущей;

чтобы не рисовать дважды границу двух ступеней, ступень вала изображается с учетом соотношения между ее диаметром и диаметром предыдущей ступени: если следующий диаметр меньше , то формируется линия по четырем точкам (функция ST1), иначе -по шести точкам (функция ST2);

контур создается полилинией шириной 0.5, что позволяет' получать на изображении различную толщину для контурных и прочих линий;

диаметры проставляются так, что размерная линия отстоит на 10 см от правой границы данной ступени, следовательно, при слишком малой длине ступени размерный текст может наложиться на линию контура;

в связи с этим пользователю предоставлена возможность выбора способа простановки диаметров: автоматически или "вручную" с помощью команд ACAD.

; Программа 13. Формирование изображения вала

; с заданным числом ступеней

(DEFUN ID ( ) ; Функция для ввода исходных данных

(SETQ d (GETDIST (STRCAT "\nВведите диаметр ступени" (ITОА i) " d = "))

1 (GETDIST "\nВведите длину ступени 1= "))

);id

(DEFUN STO ( ) ;Функция для изображения первой

;ступени

(SETQ p1 (POLAR bp (/ PI 2) (/ d 2))

p2 (POLAR p1 01)

p3 (POLAR p2 (* 1.5 PI) d)

p4 (POLAR p3 PI 1)

pl (POLAR bp 0 1) ;pl - базовая точка для новой ступени

)

(COMMAND "PLINE" p1 "W" 0.5 0.5 p2 p3 p4 "С")

(SETQ d0 d)

(SETQ sp (LIST (LIST p2 p3))); подготовка списка

; пар точек для простановки диаметров

);st0

(DEPUN ST1 ( ) ; Функция для изображения ступени

; с меньшим диаметром

(SETQ p1 (POLAR pl (/ PI 2) (/ d 2))

p2 (POLAR pi 01)

p3(POLAR p2(*1.5PI)d)

p4 (POLAR p3 PI 1)

pl (POLAR pl 01)

)

(COMMAND "PLINE" p1 "W" 05 05 p2 p3 p4" ")

(SETQ d0 d)

(SETQ sp (CONS (LIST p2 p3) sp)) ; дополнение

;списка точек

); sti

(DEFUN ST2 ( ) ; Функция для изображения ступени

; с большим диаметром

(SETQ p1 (POLAR pl (/ PI 2) (/ d0 2))

p2 (POLAR p1 (/ PI 2) (/ d 2))

p3 (POLAR p2 01)

p4 (POLAR p3(* 1.5 PI) d)

p5 (POLAR p4 PI 1)

p6 (POLAR pl ('1.5 PI) (/ d0 2))

pl (POLAR pl 01)

)

(COMMAND "PLINE" p1 "W" 0.5 0.5 p2 p3 p4 p5p6" ")

(SETQ d0 d)

(SETQ sp (CONS (LIST p3 p4) sp))

); st2

(DEFUN RZM ( ) ; Функция для простановки размеров

;ступеней

(PROMPT "\nНужно ли проставлять диаметры? <да>")

(IF ( = (READ-CHAR) 10) ; В случае ответа

; < Enter >, т.е. "Да":

(FOREACH рр sp ; Цикл по элементам

; списка sp - парам точек

(SETQ pl (CARpp)

; Выделение первой точки

p2(CADRpp)

; Выделение второй точки

рЗ (LIST (- (CAR p1) 10) (CADR p1))

; Точка для размерной линии

)

(COMMAND "DIM1" "VER" p1 p2 рЗ

"%%с< >")

; Простановка диаметра

);foreach

);if

(SETQ pr (GETPOINT "\nУкажите точку для простановки первого размера")

sp (REVERSE sp)

; Реверсирование списка точек

рр (NTH 0 sp)

; Выделение первой пары точек из списка

pl (CADR pp)

; Выделение второй (нижней) точки из пары

)

(COMMAND "DIM" "HOR" bp p1 pr" ")

;Простановка длины первой ступени

(SETQ sp (CDR sp)) ; Удаление первой пары точек

;из списка

(FOREACH рр sp ;Цикл по оставшемуся списку пар

(SETQ p1 (CADR рр))

(COMMAND "BAS" р1" ")

;Простановка длины ступени от базы

);foreach

(COMMAND)

; Завершение команды DIM - аналог Ctrl/C

);dia

(DEFUN C:VAL ( ) ; Головная функция - построение

;изображения вала

(SETVAR "CMDECHO" 0) ;Отмена эха команд

(SETVAR "BLIPMODE" 0)

;Отмена маркировки точек примитивов

(SETQ bp (GETPOINT "\nУкажите базовую точку"))

(INITGET 7)

;3апрет на ввод неположительных чисел и пробела

(SETQ n (GETINT "\nВведите число ступеней вала n = "))

(SETQ i 1) ; i - номер ступени

(ID) ; Ввод исходных данных для

; первой ступени

(STO) ; Изображение первой ступени

(WHILE ( < i n) ;Цикл по числу ступеней

(SETQ i (1+i))

(ID); Ввод исходных данных для i-й ступени

(IF(<d d0)

(ST1) ;Изображение ступени с меньшим диаметром

(ST2) ;Изображение ступени с большим диаметром

);if

); while

(RZM) ;Простановка размеров

(COMMAND "LINETYPE" "S" "CENTER" "" "LINE"

(POLAR bp PI 5) (POLAR pi 0 5) "")

; Изображение осевой линии

(PRIN1) ;"Тихий выход" из программы

)